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About this booh 

The programs in this book are 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the list of 
changes for the correct version of 
that line. The symbols for the various 
computers are as follows: 
a Commodore 64 and VIC 20 

★ BBC and Electron 
O Spectrum 
•Apple 

• TRS-80 (extended BASIC version) 

Aboutthe games 

The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer, but you can try adding 
these. 

You can change and adapt the 
games as much as you like. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
as well. This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 


Robospywas written by Adrian Hall. 

Illustrated by Sue Walliker, Rob McCaig 
and Martin Newton. 

2 Designed by Roger Priddy 


Typing and running the 
programs 

Remember, even short programs 
can be quite difficult and time- 
consuming to type in correctly. 
Check each line as you go. It is so 
easy to make mistakes, even if you 
are quite experienced. When you 
have typed in the whole listing, 
check it again, making sure you 
haven’t missed any lines, spaces or 
punctuation. 

To start the game, type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn’t work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 

When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 

Changing the speed 

Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing. 


First published in 1984 by Usbome 
Publishing Ltd, 20 Garrick Street, London 
WC2E9BJ. 
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Spy Cues 

If you think you’re a good spy, try this. 

The computer will print the numbers 1 to 9 on your 
screen. Watch them like a hawk while you press a key (any 
one will do). One of them moves, but which? When you 
think you know, press a key again and tell the computer. 

Bet your powers of observation aren’t as good as you 
thought. 


Dill X (9) : DIM Y(9> 

LET P=0 

FOR 1=1 TO 9 

GQSUB 340: LET X(I)=N*3 

GOSUB 340: LET Y(I)=N+3 » 

NEXT I 

G0SUB 360 

60SUB 310 

G0SUB 340 

LET M=N: 60SUB 340 

LET X(M)=X(M)+SGN(N-5.1) 

GOSUB 360 
G0SUB 310 
CLS: PRINT 

PRINT "WHICH NUMBER MOVED" 

INPUT A 

IF AOM THEN GOTO 250 
CLS:PRINT 

PRINT "WELL SPIED'" 

LET P=P+1 

PRINT "YOU NON HAVE ":P; " POINTS’ 
PRINT : PRINT "PRESS A KEY" 

GOSUB 310 
GOTO 30 

CLS: PRINT: PRINT "WRONG - END OF GO" 
PRINT "CORRECT ANSWER WAS ";N 
PRINT "YOU SCORED ";P: " POINTS" 
PRINT "ANOTHER GO? (V/N)" 

INPUT A*: IF AS="Y" THEN RUN 
STOP 

LET I$=INKEY$ 

IF !$="" THEN GOTO 310 


RETURN 

LET N=INT (RND(1)*9)+1 

RETURN 

CLS 

FOR 1=1 TO 9 

PRINT TAB(I(I),YII));STR$(I) 
NEXT I 


RETURN 

M 


See if you can work out 
a high-score routine 
for this game. 


Howthe program works 

10: Sets up storage space for positions of numbers. 

20: Sets variable for score to zero. 

30-60: Choose positions for the numbers. 

70: Goes to subroutine to print the numbers. 

80: Goes to subroutine to wait for key press. 

90-100: Go to subroutine to choose one of the numbers 
and call it M. 

110: Chooses left or right move. 

120: Goes to subroutine which prints numbers. 

1 30: Goes to subroutine to wait for key press. 

140-150: Clears screen. Prints message. 

160: Gets number from you. 

170: If you are wrong, program jumps to message at 
line 260. 

180-190: Clears screen and prints message. 

200-210: Increase score and print it out. 

220-230: Print message and go to subroutine which 
waits for key press. 

240: Goes back for next go. 

250-300: Print messages if you were wrong and ask if 
you want another go. 

310-330: Subroutine to wait for key press. 

340-350: Subroutine to choose random number 
between 1 and 9. 

360-400: Subroutine to print numbers at the chosen 
positions on the screen. 


Conversion lines 

• 140,180,250,340 Replace CLS Kith HOME 

▲ 140,180,250,360 Replace CLS with PRINT CHRII147) 

• 310 LET K-INKEYf (01 

• 310 1I*":IF PEEK (-16384) >127 THEN 6ET II 

▲ 310 6ET II 

0340 Replace RND(l) with RND 

■ 340 LET N=RNDI9) 

0380 PRINT AT YU),*U) jSTRMI) 

• 380 0TA8IYII)):NTABIHI)):PRINT STRIII) 

▲ 380 PRINT CHRI ( 19) : FOR LL=1 TO Y ( I ) s PRINT : NEXT: 

PRINT TAB ( X 1 1 ) ) ; STRI ( I > 

■ 380 PRINTS V(I>*32+X(I>,STRItI); 
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KW>V * X 


A mission most secret and desperately dangerous must be undertaken this very night 
- by you. 

You must cross a closely watched section of enemy territory and return, avoiding 
their gigantic and very powerful searchlight. There are rocks, bushes and other 
obstacles to hide behind, but there are no second chances - once they’ve seen you, 
you’ve had it. When you have completed one mission successfully, there is another, 
even more difficult, to undertake. Keep going, we are all depending on your success. 

Use key M to move right and N to move left. To complete one mission you must go 
right across from left to right and back again. 
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GOSUB 450 

LET A=1 : LET G=0: LET S=0 
CLS 

LET X=0: LET Y=12:LET B$=A*(A> 

60SUB 380 

LET F=0:LET N=0: LET NN=0:G05UB 340 
LET L=0: LET C=0:LET TC=10:LET C1=0 
LET 1I=INKEV$ 

IF 1 $= "N* THEN LET NN=N-1 
IF THEN LET NN=N+1 

IF NN>19 THEN LET NN=19 
IF NN(0 THEN LET NN=0 
IF NN= 1 9 AND F=0 THEN LET F=1 
IF NN=0 AND F=1 THEN LET F=2 
GOSUB 340 

IF NONN THEN LET S=S+1 
LET N=NN: LET G=G+1 
GOSUB 400 

IF HID$(A$(A) ,N+1,1)=* ’ AND L=1 THEN GOTO 
FOR T=1 TO 50: NEXT T 

IF F<2 THEN GOTO 80 / 'N 


Can yon work out how 
to make the light stay 
\ on for longer? 


Perhaps yon conld replace 
the obstacles, shown in 
this listing as =, with 
graphics symbols to 
represent trees, rocks, 
buildings or anything else 
yon like. 


How the program works 

10: Goes to subroutine which reads in 
data. 

20: Sets up variables. 

40-50: Print obstacles. 

60-70: N is player’s position. NN is new 
position. 

80: Looks for key press. 

90: If key press is N (left), new position 
is N minus 1 . If it is M (right), new 
position is N plus 1. 

100-120: Stop player moving off ends. 

130-140: F is set to 1 when player 
reaches right-hand side and 2 when 
left-hand side is reached again. 

1 50: Goes to subroutine to move player. 

1 60: If player has moved, S is increased. 

140 

170: Lets player position equal new 
position and increases G by 1. G acts as 
a timer, increasing all the time whether 
or not the player moves. 

180: Goes to subroutine which turns 
7N. light on and off. 

J J 190: Checks if player is below a space 
I when the light is on and if so goes to 
/ losing message. 

1 200: Pause 

210:lfplayerhasn’tretumedtoleft- 
hand side, then goes back to look for 
^ another key press. 
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230: Goes back to print new obstacles. 


240-290: Print losing message and score 
and ask if player wants another go. 


300-310: Print searchlight. 


320-330: Tnm searchlight off. 


340-370: Subroutine which alters 
player’s position. 


380-390: Subroutine which prints at 
position X,Y on screen. 


LET A-A+-1 : IF A~9 THEN LET A-7 220: Increases level of difficulty. 

SOTO 30 

LET X=4: LET Y-l : LET B$=’Y0U HAVE BEEN SEEN" 230: Goes back to pnntn 
GOSUB 380: PRINT 240-290: Print losing met 

PRINT "YOU SCORED *;INT((A-1+S/6)*100) and ask if player wants a 

PRINT: PRINT "ANOTHER GO? (Y/NP 300-310: Print searchligl 

INPUT Cl: IF C$="Y" THEN RUN 320-330: Turn searchligl 

PRINT "BYE ".’STOP ^ „ 

. rr v-t.iCT v-ia.ict / 1 VT 340-370: Subroutine whi< 

LET Y=3:LET X = 10:LET B$="*“ / player’s position. 

GOSUB 380: RETURN ( < J J , on , Qn c _ „ 

. „ .a . r-r u ■» , i-t i> \ a — T t ] / 380-390: Subroutine whi( 

LET X = 1 0: LET Y=3s LET B4= position X,Y on screen. 

GOSUB 380:RETURN / ° „„„ c k * fcl 

LET X=N: LET Y = 13: LET B$= length of time light is on 

GOSUB 380 W W 

450-470: Subroutine whi( 

LET X=NN: LET B$="S“ ^ dSiT 

GOSUB 390: RETURN ^ N „„„ c „ n „ . ,, 

PRINT TAB(X.Y);B* an alarm soundfo^ * ' 33 es ‘ 

RETURN a. wh en player is seen. J 

IF L=1 THEN LET C=C+1 

IF C=TC THEN LET L=0:LET C=0:LET TC=INT (RND( 1 ) *8+ ( 12-A) > : GOSUB 320 
IF L=0 THEN LET C1=C1M 

IF C1=TC THEN LET L=1 : LET C1=0:LET TC=INT (RND ( 1 ) *10+ (8-A) ): GOSUB 300 
RETURN S’ 

Tmi rnnia malra tha 


400-440: Subroutine which determines 
length of time light is on and off. 


450-470: Subroutine which reads in 
data. 


Add an alarm sound for 
when player is seen. / 


480-540: Data lines. 


DIM A*(7> 

FOR 1=1 TO 7: READ A$ ( I) : NEXT I 
RETURN 

DATA *== = = == == = = ==* 
DATA “== = == == = == =” 
DATA ’===== = = =* 

DATA *= = = = == =■ 

DATA "= = == = =“ 

DATA ■= = = = = =' 

DATA "= = = = =" 


' You could make the game \ 
1 easier by giving the player a 
second chance. Can you think 
how to do this? J 


Conversion lines 


— A You can change\ 
j the positions of the \ 
(obstacles by changing ) 
\ the data lines. J 


• 30 HOWE 

A 30 PRINT CHRK147) 

• 90 LET I$=INKEY$(0) 

ABO BET Ii 

• 80 1*=”*: IF PEEK(-16384> >127 THEN BET II 
OlM IF MIA.NMI*" ‘ AND L=1 THEN BOTO 240 
X>380 PRINT AT Y,X;B* 

• 380 VTflB(Y):HTAB(X*l):PRINT B* 

A 380 PRINT CHR* ( 19) : FDR Ll*l TO Ys PRINT: NEXT: PRINT TAB (X ) ; Bt 
■ 380 PRINT* Y*32*X,B$! 

0410,430 Replace RND(l) with RND 
*410,430 Replace RND(l) with RN0I0) 

0450 DIN AS (7, 20) 

★Speed is controlled by line 200 
For BBC and Electron change to FOR T=1 TO 150: NEXT T 




You are in control of Robospy - a unique remote-operation tracking 
device which secretly follows enemy agents. You receive details of 
an agent’s movements through the streets - whether he turns left or 
right - and you must copy these movements exactly when you send 
signals to Robospy, so that it can stay in touch with the agent. 

Unfortunately the agent knows that Robospy is following him. He 
makes your job harder the longer it keeps up. He has also managed to 
tamper with your signalling device, re-arranging the keys in an attempt 
to confuse you. This means that you press L (for left) with your right 
hand and R (for right) with your left. Can you stick with him, or will he 
shake you off? 


Robosiv 
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Can yon make the 
computer ask the player’s ] 
name when a new high 
score is reached? 


LET SP=0. 3 
CLS 

LET H=0 

LET K=0: LET S=0:LET LM 
PRINT *»> ROEQSPV <«':PRINT 
PRINT 'PRESS G TO GO" 

LET CIMNKEYI 
IF CfO'G' THEN GOTO 70 
CLS: PRINT : PRINT 
IF K=5 THEN LET L=L+1 : LET K=0 
LET nt=" 

LET Ct=” 

FOR T=1 TO L 
LET N=RND ( 1 ) 

IF N>=0.5 THEN PRINT •LEFT" : LET «$=M$+“L” 
IF N<0.5 THEN PRINT "RIGHT" : LET HI=MI*"R" 
NEXT T 



LET K=K+l 

FOR DM TO 200*L*SP 
LET C$=INKEY$ 

NEXT D 

CLS: PRINT: PRINT 
LET E s 0 

PRINT “NHAT WERE THE DIRECTIONS" 

FOR T=1 TO L 
PRINT 

LET CIMNKEYI 

IF CIO'R" AND CIO'L" THEN GOTO 270 
PRINT Cl 

IF CIOHIDKHIJ,!) THEN LET EM 
NEXT T 

IF E=0 THEN LET S=S+L 
IF S>=H THEN LET H=S 

IF EM THEN PRINT 'YOU LOST HIM! SOME SPY 1 " 

PRINT 'SCORE = *;S 

PRINT 'HIGH SCORE = ";H 

IF EM THEN GOTO 40 

FOR DM TO 500*SP 

NEXT D 

GOTO 90 


Conversion lines 

• 20,90,220 Replace CLS with HOME 

▲ 20,90,220 Replace CLS with PRINT CHR* (147). 

• 70,200,270 LET CIMNKEYKO) 

• 70,200,270 Cf=”: IF PEEKl-16384) >127 THEN GET Cl 

▲ 70,200,270 GET Cl 
0140 LET N=RND 

■ 140 LET N=RND (0) 

0300 IF CIONS (T) THEN LET EM 


How it works 

30-40: Set np variables. L is number 
of words printed on screen. K counts 
how many times L words have been 
printed. 

60-80: Print message and wait for 
key press to start. 

90: Clears screen and leaves 2 empty 
lines. 

100: If K is 5, value of L is increased 
by 1 and K set to zero. 

1 10-120: Set up two empty string 
variables. 

1 30-170: Loop round L times 
choosing sequence of lefts and 
rights randomly, print them and 
store them in MS. 

180: Increases K by 1. 

190-210: Pause for player to see 
words. Gets longer for more words. 

230: Error flag- will be set to 1 if 
player makes a mistake. 

250: Starts loop to get and check 
answers. 

260-270: Print prompt, get a key 
press and put it in C$. 

280: If key press not L or R, goes 
back for another. 

300: Checks if letter in CS matches 
appropriate letter in MS and sets 
error flag if not. 

320: Adds to score if no error. 

330: Sets new high score if 
necessary. 

340: Prints message if error made. 
350-360: Print scores. 

370: Goes back for new game. 
380-390: Pause to see score. 

400: Goes back for next go. 


Line 10 controls the 
speed of the game. Change this 
number as follows: 


Spectrum 0.2, VIC 20 0.4, 
Electron 0.6, BBC 1, 
Apple 0.1. Whichever 
computer you are 
using, the lower the 
number, the faster the 
game. Try speeding it 
up and see how good 

you are. , 
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SpyQTest 

As a new recruit at Spy School, you’ve a lot of Spy Q tests to pass if you are to move up 
through the Grades. You start as lowest of the low - a Grade 5 Trainee Spy. Your goal 
is to reach the top and become a Grade 1 VIS* and even achieve the ultimate accolade: 
the Super Spy Award. 

In each Spy Q Test, you are given ten positions on your computer screen. You are 
then given numbers between 1 and 100. Your aim is to put these numbers in order into 
the ten positions, with the lowest in position 1 and the highest in 1 0. 

You are allowed to discard some numbers if they won’t fit by pressing D. The number 
of numbers you are allowed to discard is the same as the number of your grade. 


How the program works 


OlO DIM N ( 10) : DIM N$(5> 

•a 20 CLS 
30 GOSUB 510 
40 LET «$=■• 

50 LET D=5 
60 LET 6=0 

70 FOR 1=1 TO 10: LET N(1)=0:NEXT 1 
BO LET 1=1 
90 GOSUB 430 

■OlOO LET n=INT(RND(l)»99+l) 

110 PRINT: PRINT "WHERE MILL YOU PUT *;M 
120 PRINT: INPUT P$ 

130 IF P$=*D" AND 6<D THEN LET G=G+1:G0T0 90 
140 IF P$="D” THEN PRINT "YOU CAN'T! ":G0T0 120 
150 LET P=VAL(Pi) 

160 IF P<1 OR P>10 THEN GOTO 120 


Can you change the 
number of positions 
from 10 to IS? 




"Very important Spy 


10: Sets aside storage space for 
arrays. 

20: Clears screen. 

30: Goes to subroutine which reads 
data to put in array N$(). 

40: Sets WS to empty string. 

50: Sets grade to S for start. 

60: G is number of discards used. 

70: Puts zeros in all 10 positions for 
start. 

80: Counts numbers player has 
positioned. 

90: Goes to subroutine which prints 
your status, the numbers 1 to 10 and 
any numbers already in those 
positions. 

100: Chooses a number between 1 
and 100. 

1 10-120: Print number and find out 
where you want to put it. 

130-140: Check if you pressed D and 
then whether or not you are allowed 
to discard. 

1 50: Works out numerical value of 
your input. 

160: Rejects if not between 1 and 10. 




um: 





170 IF NIP) >0 THEN PRINT “ALREADY FULL":G0T0 120 

180 LET NIP)=N 

190 LET F=0 

200 FOR L=P TO 10 

210 IF NILKH AND N(L)<>0 THEN LET F=1 

220 NEXT L 

230 FOR L=1 TO P 

240 IF N (L) >N AND NILIOO THEN LET F=1 
250 NEXT L 

240 IF F=1 THEN GOTO 360 
270 LET 1=1+1: IF Kll THEN GOTO 90 
280 LET D=D-1: IF D=0 THEN GOTO 330 
290 PRINT "NELL DONE. GO TO GRADE “;D 
300 PRINTiPRINT “YOU ARE NON A ’;N$(D) 

310 LET N$=“" 

320 GOTO 400 

330 PRINT “TERRIFIC - YOU HAVE REACHED" 

340 PRINT “THE GRADE OF SUPER SPY' 

350 STOP 

360 PRINT “NRONG ! NOT GOOD ENOUGH" 

370 PRINTiPRINT “YOU ARE STILL A 
380 PRINT N$(D) 

390 LET M=‘STILL“ 

400 PRINTiPRINT “DO YOU NANT TO TRY AGAIN? (Y/N)“ 
410 INPUT AS: IF A$=’Y" THEN GOTO 60 
420 STOP 
•a 430 CLS 

440 PRINTiPRINT “YOU ARE “;W;“ A “jNKD) 

450 PRINT 
460 FOR J=1 TO 10 

470 PRINT J; 

480 IF N ( J) >0 THEN PRINT N(J>; 

490 PRINT: NEXT J 
500 RETURN 

510 FOR 1=1 TO 5: READ NS(I) 

520 NEXT I 
530 RETURN 

540 DATA “VIS“, “SPY*, “JUNIOR SPY" 

550 DATA “SPYING ASSISTANT", 'TRAINEE SPY 


170: Rejects if position already used. 

180: Pnts number in position you 
wanted. 

190-220: Check all the positions 
above the one you said to see if there 
is a lower number already in one of 
them. Set F to 1 if there is. 

230-250: Check positions below and 
set F to 1 if there is a higher number 
already in one of them. 

260: If position is wrong, goes down 
program to tell you so. 

270: Increases counter and goes 
back for another number. 

280-300: Change D to next grade and 
print message. (Goes to Super Spy if 
DUO.) 

310: Sets WS to empty string. 

320: Goes to “try again” message. 

330-350: Super Spy message. 

360-380: Print losing message. 

390: SeUWS to “still”. 

400-420: Find out if you want to try 
again, if not stop game. 

430-500: Subroutine which prints 
message and numbers. 

510-530: Subroutine which reads 
names of grades into array N$. 

540-550: Data. 


Conversion lines 

O10 DIM N ( 10) : DIM N$(5,16) 

• 20,430 Replace CLS with HOME 
a 20,430 Replace CLS Mith PRINT CHRII147) 
0100 LET M= INT (RND+99+1) 

■ 100 LET H=RND (99) 





O 270 
2S0 
290 
300 
310 
320 
0330 
340 
350 
340 
370 
380 
390 
♦00 
410 
420 
0430 
440 
450 
440 
0470 
0480 
490 


60SUB 310: fi$=RIGHT$ (M$ , LEN (M$) -1 ) 
PRINT "THE DECODED MESSAGE IS:" 

PRINT HI 
RETURN 
LET Nl="" 

FOR 1=1 TO LENIHI) 

LET B$=H1DI(HI,I,1):LET N=ASC(QI) 

IF N=32 THEN GOTO 380 
LET N=N+X 

IF N>90 THEN LET N=N-24 
IF N< 45 THEN LET N=N+24 
LET NI=NI+CHRI (N) :NEXT I 
LET HI=NI: RETURN 

PRINT "NHAT IS THE HESSAGE TO BE ";Ci 
INPUT M$: RETURN 

LET NI='":FOR I=LEN(M$) TO 1 STEP -1 
LET NI=NI+HIDI (HI , 1 , 1 ) : NEXT I 
LET HI=NI: RETURN 
LET NI="":LET L=LEN(HI) 

FOR 1=1 TO LEN (HI) -1 STEP 2 
LET NI=NI+HIDI(HI,I+1,1) 

LET NI=NI+HIDI(HI,1,1) 

NEXT I : LET HI=NI: RETURN 


ytest 


f Good spies usually test 
/ that their messages \ / \ 

V decode properly before L / 

N. they send them. J “K. 


270: Goes to subroutine which shifts 
letters through alphabet. Takes first 
letter off. 


310-390: SHIFTING SUBROUTINE 
310: Puts message in N$. 


320: Start of loop, which takes letters 
from N$ one at a time. 


330: Changes letter into computer’s 
code number. 


340: If a space, keep the same. 

350: Adds value of X to letter code. 


360-370: Adjust code number if it goes 
beyond the code for Z or before A. 


380: Adds new letter to NS and goes 
back to beginning of loop. 


390: When all letters have been shifted, 
the new message is put in MS. 


400-410: Subroutine which asks for a 
message. 


420-440: Subroutine which reverses 
letters. 


450-490: Subroutine which takes pairs 
of letters from message in turn and 
switches the two letters in each pair 
round. 



Conversion lines 

• 10 Replace CLS with HOHE 
a 10 Replace CLS with PRINT CHRII147) 
0130 LET X=INT(RND*25)+1 
■ 130 LET X=RND(25) 

230 LET KI=HI(1) 

0240 LET HI=NI(2 TO ) 


0250 LET X=C0DE(KI)-44 
0 270 GOSUB 310:LET N!=MI(2 TO ) 
0330 LET Ql =HI ( I ) : LET N=C0DE(QI) 
0430 LET NI=NH-HI(I):NEXT I 
0 470 LET Nl =NI+HI ( I +1 ) 

0480 LET NI=NI+H!(I) 




Rendezvous 


Your mission is a complicated one, so 
read these instructions carefully. 

You must collect a case from a locker 
at the station, hand it over to your contact 
and get back to the airport before the last 
plane takes off (your computer will tell 
you what time this is). 

Your computer will tell you where your 
contact will be at what time. Y ou must 
leave a message at that place, before he 
gets there, telling him where and when 
you will meet him to hand over the case. 

You must find out the password before 
you meet him, and make sure you are not 
more than 15 minutes late. 

Before you can get the case, you must 
find the key to the locker and also its 
number. Unfortunately the key is in the 
hands of enemy agents, whose HQ is at 
the Hotel. You must find an enemy spy 
and follow him, hoping he will be 
careless enough to drop the key (and of 
course that he won’t see you). 

The map shows you the places you can 
go to and the list below shows the words 
you can use in the game. 




You might need to make a note of 
the password and locker number 
(in code of course). 


Words you can use 

TIME - Tells you what time it is. 

MOVE - Asks you where to. You can go 
anywhere marked on the map. 

SAY - The password. 


EXAMINE - Anything. (Examine the key 
to get the number.) 


READ - A message. 


OPEN -The locker. 



FOLLOW - An enemy spy. 

WAIT - For any length of time. 

LEAVE - A message. 

SEARCH - Anywhere (to find the key). 

o 

HELP - Reminds you of time and place of 
meeting. 

You can also use any of the names in 
capital letters on the map. 




How the program works 


lOlO DEF FNA(X) : INT(RND(1)*X)+1 
20 BOSUB 1010: GOSUB 1130 
30 LET P=1 : LET Y*0: LET X=liLET EP=10 



40 LET U=0: LET NH=0 
50 LET S»=" 

60 LET 81 s " 

•▲70 CLS: PRINT :PR1NT -RENDEZVOUS" 

80 PRINT 
90 LET NH=NN*1 
100 PRINTsPRINT 
110 PRINT BisPRINT 
120 PRINTsPRINT "YOU ARE AT THE ') 

130 PRINT R*(P) 

140 IF EP=P THEN PRINT "ENEMY A6ENT IS HERE’sLET NE=NE*1 
150 IF EPOP THEN LET NE s 0 

160 IF P=NP AND F(1)=0 THEN PRINT "NESSABE FOR YOU HERE' 
170 LET F (3) =0 
180 LET Tl=H+tt/100 


10: Sets up a function to choose 
random number between 1 and X. 

20: Go to end of program to read 
in data and set game (initialize). 

30: P, Y and X record player’s 
position. EP is enemy position. 

60: BS is for computer's messages 
to player. 

90: Increases NM (number of 
moves). 

140: NE counts how long player is 
in same place as enemy agent. 

180: Works out the time 
(H - hours, M = minutes) 
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IF F (4)=1 AND R*(P)=S* AND U<=T1 AND U*. 15>T1 THEN PRINT 
IF P=1 AND H<FH AND F(7I=1 THEN GOTO 890 
PRINT! PRINT: PRINT "NHAT NEXT* 

LET 81 s " 

INPUT II 

LET V=0: FOR I=! TO 11 


T*: LET F ( 3) = 1 190-200: Work out if mission has 

been completed. 

210-270: Get word from player 
and check for match with words 
in memory. V is number of 
matching word. 


IF 11=01(1) THEN LET V=I 
NEXT I 

IF V=0 THEN LET V=12 

IF NE=3 AND FNA(10)>3 AND VOl THEN LET B*= "ENEMY AGENT SEES YOU! 

IF NE=4 THEN PRINT ’YOU ARE CAPTURED !*: STOP 

ON V 60SUB 340,420,490,540,570,440,710,730,780,810,820,870 

LET H=N*DT: IF N>59 THEN LET M=M-40:LET H=HM 

IF FI2)=1 AND H>=CH THEN LET FI4)=1 

IF H=FH THEN GOTO 880 

IF FNA (10) >9 THEN LET EP=10 

GOTO 70 

PRINT : PRINT "WHERE TO*: INPUT N$ 

LET NP=0:F0R 1=1 TO 20 
IF NI=RI(I) THEN LET NP=I 
NEXT I : IF NP=0 THEN GOTO 340 
GOSUB 950 


:GOTO 70 

280-290: Check value of NE to see 
if seen by enemy. 

300: Branches to subroutine 
depending on word entered. 

310: Increases time. 

330: Checks if player has run out 
of time. 

340: Moves enemy back to hotel. 
360-410: MOVE SUBROUTINE 


LET P=NP: RETURN 
LET DT=5 

PRINTsPRINT "SAY WHAT"! INPUT 01 

IF EP=P THEN LET BI=*Y0U ATTRACTED THE ENEMY AGENT !": RETURN 
IF F(3)=0 THEN LET BI=*N0B0DY HEARS YOU* : RETURN 
IF MOW THEN LET BI=*C0NTACT IGNORES YOU "[RETURN 
IF F(4)=l THEN LET BI=*Y0U HADE CONTACT - HE TAKES THE CASE" 
LET F (7) *1 ! RETURN 
LET DT=5 

PRINT : PRINT "WHAT DO YOU NANT TO EXAMINE" : INPUT 01 
IF 0l=‘CASE* THEN LET B$=*T0P SECRET": RETURN 
IF 0!=*KEY" THEN LET Bf="A NUMBER - •♦STMINDs RETURN 
LET 8I=*N0THING SPECIAL! *: RETURN 
IF PONP OR F ( 1 ) =1 THEN LET BI="N0THING TO READ* "[RETURN 
LET BI=*A WORD - "♦PI**" 

LET F < 1 )=1 : RETURN 
LET DT=5 

IF P<>14 THEN LET BI="N0THING TO 0PEN":RETURN 

IF FI5)=0 THEN LET BI=*Y0U HAVE NO KEY’: RETURN 

PRINTsPRINT "WHAT NUMBER LOCKER*: INPUT YN 

IF NLOYN THEN LET B$="THE KEY DOES NOT FIT*:RETURN 

LET BI=*L0CKER IS OPEN - YOU HAVE THE CASE! ":LET F(4)=l 

RETURN 

LET DT=5 

IF EPOP THEN LET BI=’F0LLDN NHO , *:RETURN 
LET NP=FNAI20): GOSUB 950:LET P=NP 
IF FNA ( 10) >8 THEN LET P=KP 

IF FNA 1 10) >7 THEN LET B4=*Y0U LOST HIM AFTER A WHILE ": RETURN 
LET EP=P 

LET B$=’Y0U KEPT HIH IN SIGHT": RETURN 
PRINTsPRINT "HON MANY MINUTES": INPUT DT 
RETURN 

PRINT:PRINT "WHERE DO YOU NANT TO MEET*: INPUT SI 
PRINTsPRINT "WHAT TIME (HH.HH)* 

INPUT U 

IF P=CP AND TKU AND H<CH THEN LET F(2)=l 
LET DT =5: RETURN 

LET BI="NOTHING HERE*:LET DT=10 

IF P=KP THEN LET BI=*Y0U FOUND A KEY* : LET F(5)=l 

RETURN 

LET DT=0:LET BI="T1HE IS NON "+STRI (H) ♦".* +STRI (M) : RETURN 
LET DT=5 

IF U=0 THEN GOTO 840 


420-490: SAY SUBROUTINE 


500-540: EXAMINE 
SUBROUTINE 

550-570: READ SUBROUTINE 
580-640: OPEN SUBROUTINE 


650-700: FOLLOW SUBROUTINE 

710-720: WAIT SUBROUTINE 
730-770: LEAVE SUBROUTINE 

780-800: SEARCH SUBROUTINE 


810: TIME SUBROUTINE 


840 PRINT:PRINT "HEETING PLACE IS" 

850 PRINT Sis’ AT "jU 

860 QOSUB 1 300: RETURN 

870 LET DT=0: LET B*=”PARDON'>* : RETURN 

880 PRINT "TOO LATE *:STOP 

890 PRINT: PRINT "NELL DONE. TOUR MISSION NAS A SUCCESS 
900 LET TL=<FH-H)»60-N 
910 LET S=INT ( 120/NM+TL/I20) *50) 

920 PRINTsPRINT "YOUR SPY RATING"' 

930 PRINT "IS ":S 
940 STOP 

950 LET NY=INT(INP-1)/5I 
960 LET NX=NP-5»NY 

970 LET DX=ABS(X-NI):LET DY=A8SIY-NY> / 





820-860: HELP SUBROUTINE 

870: “Word not recognized" 
SUBROUTINE. 

880: “Run out of time” message. 

890-940: Print message and score 
for successful mission. Rating 
depends on number of moves 
made and time left. 


The symbol A means 
“to the power of’. On 
the VIC 20, C64 and 
Spectrum it looks like 
this: t 



980 LET X=NX: LET Y=NY 
990 LET 0=SQR(Dr2*DY-"2) 

1000 LET DT=INT 150): RETURN 
01010 DIN R*(20),V*I11),F(7) 

1020 FOR 1*1 TO 20: READ Ri(I) 

1030 NEXT I 

1040 FOR 1=1 TO 11: READ V* < I )* NEXT I 
1050 RETURN 

1060 DATA "AIRPORT", "BUS STOP", "BRIDGE", "CANAL", "CHURCH" 9 
1070 DATA "PARK", "CAFE", "BANK", -CINEMA*, "HOTEL" ^ 

1080 DATA "CASINO", "TONN SQUARE - , 'POST OFFICE", "POLICE STATION", "FAIRGROUND" 
1090 DATA "STATION", "TONN HALL", "EMBASSY". “GARDENS", "CASTLE" 

1100 DATA "HOVE", "SAY", "EXAMINE" , "READ", "OPEN", "F0LL0NVHAIT", "LEAVE". "SEARCH" 
1110 DATA "TINE", "HELP- 

1120 DATA "CUSTARD" , "KIPPER", "KOALA" . "CRUMPET", "CR0SSN0R0" , "KANGAROO" 

■ 1130 LET H=FNA(2)*8:LET H=0 

■ 1140 LET FH=FNA(2)*14 

■ 1150 LET CH=FNA(2XH 
•A1160 CLS: PRINT : PRINT 

1170 LET NE=0: LET TI="CONTACT IS HERE 

■ 1180 LET HP=FNAI18):LET KP=FNAllB) 

■ 1190 LET EP=FNAI18):LET CP=FNAI18) 

■ 1200 FOR 1=1 TO FNAI6) 

1210 READ P$: NEXT I 

■ 1220 LET NL=FNA|900)*99 
1230 PRINT "RENDEZVOUS" 

1240 PRINT "==========": PRINT 

1250 PRINT "COLLECT HESSAGE FROM* 

1260 PRINT "THE ";RI(HP) 

1270 PRINT "CONTACT NILL COLLECT- 
1280 PRINT “FROM THE ";RSICPI 
1290 PRINT "AT ":CH;".O0" 

1300 PRINT "LAST FLIGHT LEAVES" 

1310 PRINT "AT *jFH; *.00" 

1320 PRINT :PRINT"PRESS RETURN TO CONTINUE 
1330 INPUT Q>: RETURN 



Lines 1010-1320 are 
called the 
“initialization" 
section of the 
program. 


1^950-1000: Subroutine which 
works out distance moved anti 
time taken by player's move. 


1010-1050: Subroutine which 
reads in data. 


1060-1 120: Data lines. 

1 1 30: Chooses starting time. 

1140: Chooses time of last flight. 

1150: Chooses time for contact to 
collect message. 

1180-1190: Choose positions for 
message, key, enemy and where 
contact will collect. 

1200-1210: Choose password. 

1220: Choose locker number. 

1230-1320: Print introduction to 
game. 


Conversion lines 



010 DEF FNAIX)=INT(RND*I)M 
■ 10 1 eave out this line 
•70,1160 Replace CLS Kith HONE 
▲ 70,1160 Replace CLS Kith PRINT CHRII147) 

0235 IF LENIUX7 THEN LET 1$=IS»" ":GOTO 235 
0300 GDSUB 360tlV=l)K420»<V=2>K490*(V=3>*540KV=4)»570*(V=5>+640MV=6) 
♦71O»(V*7)+73O»(V=8 )k78O»(V=9)k8IOMV=10)k82O4(V=I1)k87O»(V=I2) 

0365 IF LENINIK14 THEN LET N*=N*+" ’: SOTO 365 
0735 IF LENISIK14 THEN LET S$=SI»" ":G0T0 735 
01010 DIN Rt (20, 14) i DIM V* (11,7) :0IH F(7) ^ 

■280,340,660,670,680,1130,1140,1150,1180,1190,1200,1220 Replace FNAI ) mth RNDI • 
e.g. FNAI20) becoees RNDI20) 


See if you can work through 
each subroutine finding out 
what all the lines do. 


The variables F(number) are ' 
“flags”. F(5), for instance, 1 
if you have the key and 0 if 
you don’t. See if you can find 
the other flags and work out 
what they are for. ' 



dorse Coder 


If you want to be a really successful spy, 
you need to know how to send, receive 
and, of course, intercept messages in 
Morse Code. This program will help you 
learn. If you have never used Morse 
Code before, you will need to make 
yourself a chart of letters and their 
Morse equivalents. Use lines 400-450 of 
the program to do this. They show the 
Morse code for each letter of the 
alphabet in order. 


What you have to do 

In Morse Code, each letter is represented 
by a series of long and short sounds or 
flashes. This program uses a flashing 
star. It will give you the code for a letter 
and then ask you which it was. You will 
have to watch carefully to pick out the 
long and short flashes and remember 
them. You will see the cursor flashing too 
at the left of the screen. Ignore this it has 
nothing to do with the code. 
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60SUB 370 
CIS 

LET S=30 

PRINT : PRINT 'HORSE TESTER 
PRINT: PRINT*NHflT LEVEL ?* 

PRINT: PRINT *(1=FAST)* 

PRINT ■ (5=SL0N) ' 

INPUT P: LET P=P*S 
CLS 

PRINT :PR1NT 'GET READY" 

FOR T=1 TO 20*S: NEXT T 
60 SUB 310 

LET F*=H* < ASC (01 ) -64) 

60SUB 220 
CLS: PRINT 

PRINT ‘TYPE IN YOUR ANSWER" 

INPUT n 

IF H=QI THEN PRINT "CORRECT' 

IF ItOM THEN PRINT "NO. THE ANSNER IS :";Q* 
FOR T=1 TO 30*S: NEXT T 



Speed is controlled by line 
30. For BBC and Electron 
change the value of S to 
100. (The lower the 
number, the faster the 
program.) 



GOTO 90 

FOR 3=1 TO LEN(FI) 

LET HS=NID»IF$,J,1) 

IF N»=V THEN LET K=1 
IF N»="-" THEN LET K=3 
G0SU8 330: LET K=1 
GOSUB 340 
NEIT J 
RETURN 
PRINT 

LET Q$*CHR$ 1 INT ( RND ( 1 ) *26*65) ) 
RETURN 

PRINT TA8(10,10):"*" 

FOR T=1 TO P*K: NEXT T 
PRINT TAB ( Ip, 10) ; “ " 

RETURN 
DIN HI (26) 

FOR 1=1 TO 26: READ HKIhNEIT I 
RETURN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



You could try adding a 
scoring routine. (The 
Robospy program 
should give you an 
idea of how to do this.) 


You could try adding 
sounds too, either as well 
as or instead of the 
flashing stars. Remember 
a dot is a short sound and a 
dash a longer one (3 times 
as long). 


Conversion lines 

020,90,130 Replace CIS with HOPE 
A 20, 90, 130 Replace CIS with PRINT CHRIU47) 

130 LET F4*HI(C0DE(0f 1-641 
230 LET NMfttJ) 

233 IF HI*’ • THEM GOTO 280 
,310 LET DMCHRl ( IMT (RND«26*43l ) 

■310 LET M=CMRHRND(26)*64) 

0130 PRINT NT 10,10; - ** 

0330 VTAB(10):PR1NT TABU0I;’*’ 

A 330 PRINT CMRIU9J :F0R l«l TO 10:PR1NT: 
NEIT:PRINT TAB f 10> : "•* 

■330 PRINT! 240, # 

0330 PRINT AT 10,10;’ * 

0330 VTA|(10):PR1NT TABI10);* r 
A 350 PRINT CNRI(19):F0R 1*1 TO 10:PR1NT: 
NE!T:PRINT TAB(lO);’ • 

■ 330 PRINT! 240,’ ’ 

A370 DIN Nf (26,41 


How it works 

10: Goes to subroutine to read in data. 
30: Sets speed. 

50-80: Ask for level you want and 
work out speed of flashes depending 
on what you say. 

110: Pause 

120: Goes to subroutine which 
chooses random letter and stores it 
in OS. 

1 30: Finds the dots and dashes code 
for the letter and puts them in F$. 

140: Goes to subroutines which print 
flashing star. 

160-170: Get answer from you. 

180-190: Check if answer is correct 
or not and print message. 

200-210: Pause then go back for next 
letter. 

220-250: Check through length of FS 
setting K to 1 for dots and 3 for 
dashes. (K sets how long the star 
stays on the screen each time.) 

260-270: Go to subroutine to print 
star. Comeback, set K to 1, then go 
back to subroutine at line 340 to 
“print” a space. This gives the gap 
between the dots and dashes. 

280: Goes back for next dot or dash. 

310-320: Subroutine to choose a 
random letter. 

330: Turns star on. 

340: Waits for length of time 
depending on K. 

350: Prints space instead of star. 

370-390: Subroutine which reads in 
data. 

400-450: Data lines. 
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Answers to puzzles 

Here are answers to some of the puzzles 
set in this book. Your answers may be 
different, but if they work this doesn’t 
matter. Check they are as neat and 
simple as the ones given here though. 


Spy Eyes 

Here is how to add a high score routine. 

15 LET H*0 

215 PRINT "HIGH SCORE = *;H 

275 IF P>H THEN LET H=P: PR 1NT "THAT IS THE HIGH SCOPE" 
290 INPUT At: IF A$=*Y" THEN GOTO 20 


Searchlight 



Robospy 

These lines will make the computer ask 
for the player’s name when a new high 
score is reached. 

25 LET H$="N060DY" 

330 Take out this line 

345 IF £=1 AND S>H THEN LET H=S:GDSUB 410 

410 PRINT “THAT IS THE HIGH SCORE"' 

420 PRINT "PLEASE TYPE YOUR NAME" 

430 INPUT H$: RETURN 

Spy Q Test 

Here is how to change the number of 
positions from 10 to 15. 

10 DIM N i 15) : DIM N$(5) 

70,160,200,460 Change the 10 in these lines to 15 
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